← Index
NYTProf Performance Profile   
For ../prof.pl
  Run on Thu Dec 15 15:23:56 2022
Reported on Thu Dec 15 15:27:03 2022

Filename(eval 328)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
StatementsExecuted 2230 statements in 19.8ms
Eval Invoked At/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
22201119.6ms59.6msJSON::Schema::Modern::::_get_format_validation JSON::Schema::Modern::_get_format_validation
1118µs19µsJSON::Schema::Modern::::BEGIN@5.181 JSON::Schema::Modern::BEGIN@5.181
1113µs3µsMethod::Generate::Accessor::_Generated::::BEGIN@10.182Method::Generate::Accessor::_Generated::BEGIN@10.182
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1{
220s my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
310s my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
4 package JSON::Schema::Modern;
5234µs230µs
# spent 19µs (8+11) within JSON::Schema::Modern::BEGIN@5.181 which was called: # once (8µs+11µs) by Sub::Quote::_clean_eval at line 5
no warnings 'closure';
# spent 19µs making 1 call to JSON::Schema::Modern::BEGIN@5.181 # spent 11µs making 1 call to warnings::unimport
6
# spent 59.6ms (19.6+40.0) within JSON::Schema::Modern::_get_format_validation which was called 2220 times, avg 27µs/call: # 2220 times (19.6ms+40.0ms) by JSON::Schema::Modern::Vocabulary::FormatAssertion::_eval_keyword_format at line 172 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern/Vocabulary/FormatAssertion.pm, avg 27µs/call
sub _get_format_validation {
7 ($_QUOTED,$_UNQUOTED) if 0;
8# BEGIN quote_sub PRELUDE
9package Method::Generate::Accessor::_Generated;
10
# spent 3µs within Method::Generate::Accessor::_Generated::BEGIN@10.182 which was called: # once (3µs+0s) by Sub::Quote::_clean_eval at line 15
BEGIN {
1110s $^H = 2018;
1210s ${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
1313µs %^H = (
14 );
15132µs13µs}
16# END quote_sub PRELUDE
17222019.8ms666040.0msshift->_assert__format_validations->${\Data::Perl::Collection::Hash::MooseLike->can("get")}(@_); }
# spent 28.6ms making 2220 calls to Data::Perl::Collection::Hash::MooseLike::get, avg 13µs/call # spent 6.38ms making 2220 calls to JSON::Schema::Modern::_assert__format_validations, avg 3µs/call # spent 5.04ms making 2220 calls to UNIVERSAL::can, avg 2µs/call
1810s $$_UNQUOTED = \&_get_format_validation;
19}
2012µs1;
21
22;